(x-handle-no-bitmap-icon): New function.

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index e48d97d6d1bc47940008f09e8fd014b2e023bdd0..d0489844d76b1dd0b612791fec299f654018e216 100644 (file)
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -129,6 +129,9 @@
                        initial-frame-alist)
                  x-invocation-args (cdr x-invocation-args)))))))
 
+(defun x-handle-no-bitmap-icon (switch)
+  (setq default-frame-alist (cons '(icon-type) default-frame-alist)))
+
 ;; Make -iconic apply only to the initial frame!
 (defun x-handle-iconic (switch)
   (setq initial-frame-alist